Namespace OpenArchive
    Namespace System
        Namespace DB
            Namespace Tables
                Public Class VolumeTable
                    Private m_VolumeID As Long
                    Private m_IsOffline As Boolean
                    Private m_IsPartClosed As Boolean
                    Private m_DateCreated As Date
                    Private m_MediaDriver As String
                    Private m_MediaPath As String
                    Public Property VolumeID() As Long
                        Get
                            Return m_VolumeID
                        End Get
                        Set(ByVal value As Long)
                            m_VolumeID = value
                        End Set
                    End Property
                    Public Property IsOffline() As Boolean
                        Get
                            Return m_IsOffline
                        End Get
                        Set(ByVal value As Boolean)
                            m_IsOffline = value
                        End Set
                    End Property
                    Public Property IsPartClosed() As Boolean
                        Get
                            Return m_IsPartClosed
                        End Get
                        Set(ByVal value As Boolean)
                            m_IsPartClosed = value
                        End Set
                    End Property
                    Public Property DateCreated() As Date
                        Get
                            Return m_DateCreated
                        End Get
                        Set(ByVal value As Date)
                            m_DateCreated = value
                        End Set
                    End Property
                    Public Property MediaDriver() As String
                        Get
                            Return m_MediaDriver
                        End Get
                        Set(ByVal value As String)
                            m_MediaDriver = value
                        End Set
                    End Property
                    Public Property MediaPath() As String
                        Get
                            Return m_MediaPath
                        End Get
                        Set(ByVal value As String)
                            m_MediaPath = value
                        End Set
                    End Property
                End Class
            End Namespace
        End Namespace
    End Namespace
End Namespace
